Adventures with Oslo: Tools & Gadgets/Adventures with Oslo - Tools and Gadgets.ISO/mac/Ad/Mod04/backpak4.Dir/00005.ls

Text File | 1994-09-23 | 11.3 KB | 242 lines

on startMovie
  global gBackPack, gTools
  set QC to the number of cast "questionCursor"
  cursor([QC, QC + 1])
  set HC to the number of cast "handCursor"
  set the cursor of sprite 2 to [HC, HC + 1]
  if voidp(gBackPack) then
    set gBackPack to []
  end if
  if gBackPack = [] then
    go(3)
  else
    if getOne(gBackPack, #loan) = 0 then
      set the visible of sprite 3 to 0
    end if
    if getOne(gBackPack, #prize) = 0 then
      set the visible of sprite 4 to 0
    end if
    if getOne(gBackPack, #rock1) = 0 then
      set the visible of sprite 5 to 0
    end if
    if getOne(gBackPack, #rock2) = 0 then
      set the visible of sprite 6 to 0
    end if
    if getOne(gBackPack, #rock3) = 0 then
      set the visible of sprite 7 to 0
    end if
    if getOne(gBackPack, #rock4) = 0 then
      set the visible of sprite 8 to 0
    end if
    if getOne(gBackPack, #rock5) = 0 then
      set the visible of sprite 9 to 0
    end if
    if getOne(gBackPack, #rock6) = 0 then
      set the visible of sprite 10 to 0
    end if
    if getOne(gBackPack, #rock7) = 0 then
      set the visible of sprite 11 to 0
    end if
    if getOne(gBackPack, #rock8) = 0 then
      set the visible of sprite 12 to 0
    end if
    if getOne(gBackPack, #rock9) = 0 then
      set the visible of sprite 13 to 0
    end if
    if getOne(gBackPack, #rock10) = 0 then
      set the visible of sprite 14 to 0
    end if
    if getOne(gBackPack, #box1) = 0 then
      set the visible of sprite 15 to 0
    end if
    if getOne(gBackPack, #rope1) = 0 then
      set the visible of sprite 16 to 0
    end if
    if getOne(gBackPack, #shovel1) = 0 then
      set the visible of sprite 17 to 0
    end if
    if getOne(gBackPack, #boots) = 0 then
      set the visible of sprite 18 to 0
    end if
    if getOne(gBackPack, #tear) = 0 then
      set the visible of sprite 19 to 0
    end if
    if getOne(gBackPack, #brown) = 0 then
      set the visible of sprite 20 to 0
    end if
    if getOne(gBackPack, #tan) = 0 then
      set the visible of sprite 21 to 0
    end if
    if getOne(gBackPack, #box2) = 0 then
      set the visible of sprite 22 to 0
    end if
    if getOne(gBackPack, #flat) = 0 then
      set the visible of sprite 23 to 0
    end if
    if getOne(gBackPack, #rope2) = 0 then
      set the visible of sprite 24 to 0
    end if
    if getOne(gBackPack, #shovel2) = 0 then
      set the visible of sprite 25 to 0
    end if
    if getOne(gBackPack, #boot) = 0 then
      set the visible of sprite 26 to 0
    end if
    if getOne(gBackPack, #rope3) = 0 then
      set the visible of sprite 27 to 0
    end if
    if getOne(gBackPack, #tear2) = 0 then
      set the visible of sprite 28 to 0
    end if
    if getOne(gBackPack, #shovel3) = 0 then
      set the visible of sprite 29 to 0
    end if
    if getOne(gBackPack, #tan2) = 0 then
      set the visible of sprite 30 to 0
    end if
    if getOne(gBackPack, #boots2) = 0 then
      set the visible of sprite 31 to 0
    end if
    if getOne(gBackPack, #Forceps) = 0 then
      set the visible of sprite 32 to 0
    end if
    if getOne(gBackPack, #coins) = 0 then
      set the visible of sprite 33 to 0
    end if
    set the visible of sprite 48 to 0
  end if
end

on enterFrame
  if rollOver(3) and the visible of sprite 3 then
    put "This is your copy of your loan agreement with the bank." into field "description"
  else
    if rollOver(4) and the visible of sprite 4 then
      put "This is a piece of a map." into field "description"
    else
      if rollOver(5) and the visible of sprite 5 then
        put "This is a rock you found in the tunnel." into field "description"
      else
        if rollOver(6) and the visible of sprite 6 then
          put "This is a rock you found in the tunnel." into field "description"
        else
          if rollOver(7) and the visible of sprite 7 then
            put "This is a rock you found in the tunnel." into field "description"
          else
            if rollOver(8) and the visible of sprite 8 then
              put "This is a rock you found in the tunnel." into field "description"
            else
              if rollOver(9) and the visible of sprite 9 then
                put "This is a rock you found in the tunnel." into field "description"
              else
                if rollOver(10) and the visible of sprite 10 then
                  put "This is a rock you found in the tunnel." into field "description"
                else
                  if rollOver(11) and the visible of sprite 11 then
                    put "This is a rock you found in the tunnel." into field "description"
                  else
                    if rollOver(12) and the visible of sprite 12 then
                      put "This is a rock you found in the tunnel." into field "description"
                    else
                      if rollOver(13) and the visible of sprite 13 then
                        put "This is a rock you found in the tunnel." into field "description"
                      else
                        if rollOver(14) and the visible of sprite 14 then
                          put "This is a rock you found in the tunnel." into field "description"
                        else
                          if rollOver(15) and the visible of sprite 15 then
                            put "This is a box you found in the tunnel." into field "description"
                          else
                            if rollOver(16) and the visible of sprite 16 then
                              put "This is a length of rope from the tunnel." into field "description"
                            else
                              if rollOver(17) and the visible of sprite 17 then
                                put "This is a shovel from the tunnel." into field "description"
                              else
                                if rollOver(18) and the visible of sprite 18 then
                                  put "This is a muddy, old pair of boots." into field "description"
                                else
                                  if rollOver(19) and the visible of sprite 19 then
                                    put "This is a rock you found in the tunnel." into field "description"
                                  else
                                    if rollOver(20) and the visible of sprite 20 then
                                      put "This is a rock you found in the tunnel." into field "description"
                                    else
                                      if rollOver(21) and the visible of sprite 21 then
                                        put "This is a rock you found in the tunnel." into field "description"
                                      else
                                        if rollOver(22) and the visible of sprite 22 then
                                          put "This is an empty box you found in the tunnel." into field "description"
                                        else
                                          if rollOver(23) and the visible of sprite 23 then
                                            put "This is a rock you found in the tunnel." into field "description"
                                          else
                                            if rollOver(24) and the visible of sprite 24 then
                                              put "This is a length of rope from the tunnel." into field "description"
                                            else
                                              if rollOver(25) and the visible of sprite 25 then
                                                put "This is a shovel from the tunnel." into field "description"
                                              else
                                                if rollOver(26) and the visible of sprite 26 then
                                                  put "This is a boot from the tunnel." into field "description"
                                                else
                                                  if rollOver(27) and the visible of sprite 27 then
                                                    put "This is a length of rope from the tunnel." into field "description"
                                                  else
                                                    if rollOver(28) and the visible of sprite 28 then
                                                      put "This is a rock from the tunnel." into field "description"
                                                    else
                                                      if rollOver(29) and the visible of sprite 29 then
                                                        put "This is a shovel from the tunnel." into field "description"
                                                      else
                                                        if rollOver(30) and the visible of sprite 30 then
                                                          put "This is a rock you found in the tunnel." into field "description"
                                                        else
                                                          if rollOver(31) and the visible of sprite 31 then
                                                            put "These are somebody's old boots." into field "description"
                                                          else
                                                            if rollOver(32) and the visible of sprite 32 then
                                                              put "These are the forceps Dr. Carter gave you." into field "description"
                                                            else
                                                              if rollOver(33) and the visible of sprite 33 then
                                                                put "These are the coins Neighbor Bob gave you." into field "description"
                                                              else
                                                                put " " into field "description"
                                                              end if
                                                            end if
                                                          end if
                                                        end if
                                                      end if
                                                    end if
                                                  end if
                                                end if
                                              end if
                                            end if
                                          end if
                                        end if
                                      end if
                                    end if
                                  end if
                                end if
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if field "description" = " " then
    set the visible of sprite 48 to 0
  else
    set the visible of sprite 48 to 1
  end if
end